object frmSettings: TfrmSettings Left = 374 Top = 83 ActiveControl = btnOk BorderIcons = [biSystemMenu] BorderStyle = bsDialog Caption = 'Restore Center Settings' ClientHeight = 476 ClientWidth = 422 Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = 'Arial' Font.Style = [] KeyPreview = True OldCreateOrder = False Position = poScreenCenter OnCreate = FormCreate DesignSize = ( 422 476) PixelsPerInch = 96 TextHeight = 16 object btnOk: TButton Left = 242 Top = 442 Width = 80 Height = 25 Anchors = [akRight, akBottom] Caption = 'Ok' ModalResult = 1 TabOrder = 0 end object btnCancel: TButton Left = 332 Top = 442 Width = 80 Height = 25 Anchors = [akRight, akBottom] Cancel = True Caption = 'Cancel' ModalResult = 2 TabOrder = 1 end object pcMain: TPageControl Left = 8 Top = 6 Width = 405 Height = 427 ActivePage = tsGeneral Anchors = [akLeft, akTop, akRight, akBottom] TabOrder = 2 object tsGeneral: TTabSheet Caption = 'General' DesignSize = ( 397 396) object lbInfo: TLabel Left = 12 Top = 16 Width = 373 Height = 48 AutoSize = False Caption = 'Make changes to the restore settings here, specify the period af' + 'ter whitch you want backups to be deleted automatically and how ' + 'many backups can be stored at a time.' WordWrap = True end object gbBackups: TGroupBox Left = 12 Top = 80 Width = 373 Height = 257 Anchors = [akLeft, akTop, akRight] Caption = 'Backups' TabOrder = 0 DesignSize = ( 373 257) object lbDeleteBackupsInfo: TLabel Left = 16 Top = 24 Width = 344 Height = 65 Anchors = [akLeft, akTop, akRight] AutoSize = False Caption = 'Select the period after whitch you want backups to be deleted au' + 'tomatically. This option will protect your hard drive from stori' + 'ng old unused backup files.' WordWrap = True end object lbBackupStoredProperty1: TAxLabel Left = 17 Top = 220 Width = 215 Height = 16 WordWrap = False Transparent = True Caption = 'Maximum number of stored backups:' ShowAccelChar = True end object lbDeleteBackupProperty: TAxLabel Left = 17 Top = 100 Width = 175 Height = 16 WordWrap = False Transparent = True Caption = 'Delete backups automatically:' ShowAccelChar = True end object lbBackupsStoredInfo: TLabel Left = 16 Top = 148 Width = 339 Height = 60 Anchors = [akLeft, akTop, akRight] AutoSize = False Caption = 'Specify the number of backups, that can be stored on your hard d' + 'rive at a time. This option affects disk storage space used to s' + 'tore backups.' WordWrap = True end object cbDeleteBackupsAfter: TComboBox Left = 216 Top = 98 Width = 139 Height = 24 Style = csDropDownList Anchors = [akLeft, akTop, akRight] DropDownCount = 10 ItemHeight = 16 TabOrder = 0 OnChange = cbDeleteBackupsAfterChange Items.Strings = ( 'After one day' 'After 2 days' 'After 3 days' 'After one week' 'After 2 weeks' 'After 3 weeks' 'After one month' 'After 2 months' 'After 3 months' 'Never') end object spnMaxBackupStored: TEdit Left = 260 Top = 216 Width = 79 Height = 24 TabOrder = 1 Text = '1' OnKeyPress = spnMaxBackupStoredKeyPress end object updownMaxBackupStored: TUpDown Left = 339 Top = 216 Width = 16 Height = 24 Associate = spnMaxBackupStored Min = 1 Max = 999 Position = 1 TabOrder = 2 end end end end end